DEFINITION MODULE Hex;

(* This module exports the results of various hex routines. *)

FROM SYSTEM   IMPORT ADDRESS;

EXPORT QUALIFIED str80, OutType, CharType, LeftByte, RightByte,
                 CharOut, CharIndex;

TYPE
   str80      = ARRAY[0..79] OF CHAR;
   OutType    = ARRAY[0..3] OF CHAR;
   CharType   = ARRAY[1..16] OF CHAR;
VAR
   LeftByte   : CARDINAL;
   RightByte  : CARDINAL;
   CharOut    : CharType;
   CharIndex  : CARDINAL;

PROCEDURE ConvertHexStringToCardinal(VAR Num         : LONGCARD;
                                         NumLocation : str80);

PROCEDURE HexDump(StartAddress : ADDRESS;
                  WordCount    : LONGCARD;
                  Out          : OutType);

PROCEDURE WriteHex(    Input       : CARDINAL;
                   VAR LeftByte    : CARDINAL;
                   VAR RightByte   : CARDINAL;
                   VAR Out         : OutType);

PROCEDURE WriteChar(VAR CharOut    : CharType;
                    VAR CharIndex  : CARDINAL;
                        LeftByte   : CARDINAL;
                        RightByte  : CARDINAL);

END Hex.
